home *** CD-ROM | disk | FTP | other *** search
/ Clickx 4 / Clickx 4.iso / menu.dxr / 00020_knop_URL.ls < prev    next >
Encoding:
Text File  |  2002-01-01  |  533 b   |  26 lines
  1. property pLink
  2.  
  3. on beginSprite me
  4.   pLink = EMPTY
  5.   sprite(me.spriteNum).member.text = EMPTY
  6. end
  7.  
  8. on enterFrame me
  9.   if pLink.char.count > 35 then
  10.     if sprite(me.spriteNum).member.text <> "Klik hier voor meer info" then
  11.       sprite(me.spriteNum).member.text = "Klik hier voor meer info"
  12.     end if
  13.   else
  14.     if sprite(me.spriteNum).member.text <> pLink then
  15.       sprite(me.spriteNum).member.text = pLink
  16.     end if
  17.   end if
  18.   updateStage()
  19. end
  20.  
  21. on mouseUp
  22.   if pLink <> EMPTY then
  23.     baOpenURL(pLink, "maximised")
  24.   end if
  25. end
  26.